
;
PEEK
  PUSH HL
  PUSH BC
;
    PUSH AF
      A=($F8D6)  RES 4,A
      BC=$1FD0
      OUT (C),A
    POP AF
;
    BC=$4000  ADD HL,BC
    BC=HL
    IN A,(C)
  POP BC
  POP HL
  RET
;
; #POKE@
;
POKE@
  PUSH BC
    A=($F8D6)  RES 4,A
    BC=$1FD0
    OUT (C),A
;
    C=E
 